<%
    ' Encripta el string recibido por parametro
    Function ContrasenaCodifica(Contrasena)    
        Dim vLongitud, vCaracter, vCodificado
        vLongitud = Len(Contrasena)
        vCodificado = ""
        For vCaracter = 1 To vLongitud
            vCodificado = vCodificado & Chr(Asc(Mid(Contrasena, vCaracter, 1)) + 50)
        Next
        ContrasenaCodifica = vCodificado
    End Function

    ' Desencripta el string recibido por parametro
    Function ContrasenaDecodifica(Contrasena)
        Dim vLongitud, vCaracter, vCodificado
        vLongitud = Len(Contrasena)
        vCodificado = ""
        For vCaracter = 1 To vLongitud
            vCodificado = vCodificado & Chr(Asc(Mid(Contrasena, vCaracter, 1)) - 50)
        Next
        ContrasenaDecodifica = vCodificado
    End Function
%>